Joystick Magazine 1999 November/cd joystick no109 novembre 1999.iso/Data/sharewares/utilitaires/WC32V401.ZIP/INSTALL.BIN/WINCMD32.EXE/0/RCDATA/TWINDOWSCMD/TWINDOWSCMD.txt

Text File | 1999-07-27 | 22KB | 928 lines

object WINDOWSCMD: TWINDOWSCMD
  Left = 215
  Top = 93
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  AutoScroll = False
  Caption = 'Windows Commander 4.01'
  ClientHeight = 401
  ClientWidth = 624
  Font.Color = clBtnText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  KeyPreview = True
  Menu = MainMenu
  Scaled = False
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnKeyUp = FormKeyUp
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object RightPanel: TMyPanel
    Left = 313
    Top = 0
    Width = 309
    Height = 351
    BevelOuter = bvNone
    TabOrder = 2
    OnResize = RightPanelResize
    OnPaint = PanelPaint
    RightLine = False
    object RightRoot: TMySpeedButton
      Tag = 160
      Left = 272
      Top = 1
      Width = 19
      Height = 22
      Caption = '\'
      OnClick = RootClick
      FlatButton = False
    end
    object RightParent: TMySpeedButton
      Tag = 161
      Left = 291
      Top = 1
      Width = 18
      Height = 22
      Caption = '..'
      OnClick = ParentClick
      FlatButton = False
    end
    object RightInfo: TMyPanel
      Tag = 240
      Left = 56
      Top = 2
      Width = 213
      Height = 21
      Alignment = taLeftJustify
      BevelOuter = bvLowered
      TabOrder = 0
      RightLine = False
    end
    object RightPath: TMyPanel
      Tag = 250
      Left = 1
      Top = 25
      Width = 307
      Height = 16
      Alignment = taLeftJustify
      BevelOuter = bvLowered
      Color = clInactiveCaption
      Font.Color = clInactiveCaptionText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = RightPathClick
      OnDblClick = PathDblClick
      OnMouseDown = PathMouseDown
      OnMouseUp = PathMouseUp
      RightLine = False
    end
    object RightHeader: THeaderClick
      Left = 1
      Top = 41
      Width = 307
      Height = 17
      Sections.Sections = (
        #0'41'#0'Name'
        #0'27'#0'Ext'
        #0'33'#0'Size'
        #0'36'#0'Date'
        #0'29'#0'Attr')
      TabOrder = 4
      OnSizing = HeaderSizing
      OnSized = HeaderSized
      OnSectionClick = HeaderSectionClick
      SelectedHeader = -1
      Arrow = 0
      FlatButtons = False
    end
    object RightSize: TMyPanel
      Tag = 280
      Left = 1
      Top = 332
      Width = 308
      Height = 17
      Alignment = taLeftJustify
      BevelOuter = bvNone
      TabOrder = 1
      OnClick = RightPathClick
      OnPaint = SizePaint
      RightLine = False
    end
    object RightDrives: TMyComboBox
      Tag = 271
      Left = 1
      Top = 1
      Width = 54
      Height = 21
      TabStop = False
      Style = csDropDownList
      DropDownCount = 9
      ItemHeight = 13
      TabOrder = 3
      OnChange = DrivesChange
      OnDropDown = DrivesDropdown
      OnExit = LeftDrivesExit
      OnKeyDown = DrivesKeyDown
      OnCloseup = DrivesCloseup
      OnRButtonUp = DrivesRButtonUp
    end
  end
  object LeftPanel: TMyPanel
    Left = 0
    Top = 0
    Width = 309
    Height = 351
    BevelOuter = bvNone
    TabOrder = 1
    OnResize = LeftPanelResize
    OnPaint = PanelPaint
    RightLine = False
    object LeftRoot: TMySpeedButton
      Tag = 160
      Left = 272
      Top = 1
      Width = 19
      Height = 22
      Caption = '\'
      OnClick = RootClick
      FlatButton = False
    end
    object LeftParent: TMySpeedButton
      Tag = 161
      Left = 291
      Top = 1
      Width = 18
      Height = 22
      Caption = '..'
      OnClick = ParentClick
      FlatButton = False
    end
    object LeftInfo: TMyPanel
      Tag = 140
      Left = 56
      Top = 2
      Width = 213
      Height = 21
      Alignment = taLeftJustify
      BevelOuter = bvLowered
      TabOrder = 4
      RightLine = False
    end
    object LeftPath: TMyPanel
      Tag = 150
      Left = 1
      Top = 25
      Width = 308
      Height = 16
      Alignment = taLeftJustify
      BevelOuter = bvLowered
      Color = clActiveCaption
      Font.Color = clCaptionText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = LeftPathClick
      OnDblClick = PathDblClick
      OnMouseDown = PathMouseDown
      OnMouseUp = PathMouseUp
      RightLine = False
    end
    object LeftHeader: THeaderClick
      Left = 1
      Top = 41
      Width = 307
      Height = 17
      Sections.Sections = (
        #0'41'#0'Name'
        #0'27'#0'Ext'
        #0'33'#0'Size'
        #0'36'#0'Date'
        #0'29'#0'Attr')
      TabOrder = 1
      OnSizing = HeaderSizing
      OnSized = HeaderSized
      OnSectionClick = HeaderSectionClick
      SelectedHeader = -1
      Arrow = 0
      FlatButtons = False
    end
    object LeftSize: TMyPanel
      Tag = 180
      Left = 1
      Top = 332
      Width = 308
      Height = 17
      Alignment = taLeftJustify
      BevelOuter = bvNone
      TabOrder = 0
      OnClick = LeftPathClick
      OnPaint = SizePaint
      RightLine = False
    end
    object LeftDrives: TMyComboBox
      Tag = 171
      Left = 1
      Top = 1
      Width = 54
      Height = 21
      TabStop = False
      Style = csDropDownList
      DropDownCount = 9
      ItemHeight = 13
      TabOrder = 3
      OnChange = DrivesChange
      OnDropDown = DrivesDropdown
      OnExit = LeftDrivesExit
      OnKeyDown = DrivesKeyDown
      OnCloseup = DrivesCloseup
      OnRButtonUp = DrivesRButtonUp
    end
  end
  object BottomPanel: TMyPanel
    Left = 0
    Top = 351
    Width = 622
    Height = 48
    BevelOuter = bvNone
    TabOrder = 0
    OnResize = BottomPanelResize
    OnPaint = BottomPanelPaint
    RightLine = False
    object idbCopy: TMySpeedButton
      Tag = 905
      Left = 179
      Top = 25
      Width = 88
      Height = 22
      Caption = 'F5  Copy'
      OnClick = idbCopyClick
      FlatButton = True
    end
    object idbList: TMySpeedButton
      Tag = 903
      Left = 1
      Top = 25
      Width = 89
      Height = 22
      Caption = 'F3  View'
      OnClick = idbListClick
      FlatButton = True
    end
    object idbEdit: TMySpeedButton
      Tag = 904
      Left = 90
      Top = 25
      Width = 89
      Height = 22
      Caption = 'F4  Edit'
      OnClick = idbEditClick
      FlatButton = True
    end
    object idbRenmov: TMySpeedButton
      Tag = 906
      Left = 267
      Top = 25
      Width = 89
      Height = 22
      Caption = 'F6  RenMov'
      OnClick = idbRenmovClick
      FlatButton = True
    end
    object idbMkdir: TMySpeedButton
      Tag = 907
      Left = 356
      Top = 25
      Width = 89
      Height = 22
      Caption = 'F7  MkDir'
      OnClick = idbMkdirClick
      FlatButton = True
    end
    object idbDelete: TMySpeedButton
      Tag = 908
      Left = 445
      Top = 25
      Width = 89
      Height = 22
      Caption = 'F8  Delete'
      OnClick = idbDeleteClick
      OnMouseDown = idbDeleteMouseDown
      FlatButton = True
    end
    object idbExit: TMySpeedButton
      Tag = 1
      Left = 534
      Top = 25
      Width = 87
      Height = 22
      Caption = 'Alt+F4  Exit'
      OnClick = idbExitClick
      FlatButton = True
    end
    object CurDir: TMyPanel
      Tag = 300
      Left = 1
      Top = 2
      Width = 236
      Height = 21
      Alignment = taRightJustify
      BevelOuter = bvNone
      Caption = 'c:\windows>'
      TabOrder = 0
      RightLine = False
    end
    object CmdLine: TComboBox
      Tag = 1001
      Left = 238
      Top = 2
      Width = 385
      Height = 21
      TabStop = False
      DropDownCount = 5
      ItemHeight = 13
      MaxLength = 259
      TabOrder = 1
      OnChange = CmdLineChange
      OnDblClick = CmdLineDblClick
      OnDropDown = CmdLineChange
      OnEnter = CmdLineChange
      OnExit = CmdLineChange
      OnKeyDown = CmdLineKeyDown
      OnKeyPress = CmdLineKeyPress
    end
  end
  object LeftList: TMyListBox
    Tag = 170
    Left = 1
    Top = 58
    Width = 307
    Height = 271
    ExtendedSelect = False
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ItemHeight = 16
    MultiSelect = True
    ParentFont = False
    Style = lbOwnerDrawFixed
    TabOrder = 3
    OnClick = ListClick
    OnDblClick = DoubleClick
    OnEnter = LeftListEnter
    OnExit = ListExit
    OnKeyUp = ListKeyUp
    OnMouseMove = ListMouseMove
    OnChange = ListChange
    OnKeyPress1 = FormKeyPress
    TrueColumnWidth = 0
    OnRButtonDown = ListRButtonDown
    OnRButtonUp = ListRButtonUp
    OnLButtonDown = ListLButtonDown
    OnLButtonUp = ListLButtonUp
  end
  object InPlaceEdit: TInEdit
    Left = 132
    Top = 136
    Width = 121
    Height = 21
    ParentColor = True
    TabOrder = 5
    Text = 'InPlaceEdit'
    OnGoingOff = InPlaceEditGoingOff
  end
  object RightList: TMyListBox
    Tag = 270
    Left = 313
    Top = 58
    Width = 308
    Height = 271
    ExtendedSelect = False
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ItemHeight = 16
    MultiSelect = True
    ParentFont = False
    Style = lbOwnerDrawFixed
    TabOrder = 4
    OnClick = ListClick
    OnDblClick = DoubleClick
    OnEnter = RightListEnter
    OnExit = ListExit
    OnKeyUp = ListKeyUp
    OnMouseMove = ListMouseMove
    OnChange = ListChange
    OnKeyPress1 = FormKeyPress
    TrueColumnWidth = 0
    OnRButtonDown = ListRButtonDown
    OnRButtonUp = ListRButtonUp
    OnLButtonDown = ListLButtonDown
    OnLButtonUp = ListLButtonUp
  end
  object SplitPanel: TPanel
    Left = 310
    Top = 0
    Width = 3
    Height = 351
    Cursor = crHSplit
    BevelOuter = bvNone
    TabOrder = 6
    OnMouseDown = SplitPanelMouseDown
    OnMouseMove = SplitPanelMouseMove
    OnMouseUp = SplitPanelMouseUp
  end
  object MainMenu: TMainMenu
    Left = 4
    Top = 88
    object Files: TMenuItem
      Caption = '&Files'
      ShortCut = 0
      object FilesChangeattributes: TMenuItem
        Tag = 502
        Caption = '&Change Attributes...'
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object FilesPack: TMenuItem
        Tag = 508
        Caption = '&Pack...'
        ShortCut = 32884
        OnClick = MenuDispatch
      end
      object FilesUnpackspecificfiles: TMenuItem
        Tag = 509
        Caption = '&Unpack Specific Files...'
        ShortCut = 32888
        OnClick = MenuDispatch
      end
      object Testarchives1: TMenuItem
        Tag = 518
        Caption = 'Test Archi&ve(s)'
        ShortCut = 41080
        OnClick = MenuDispatch
      end
      object Comparebycontent1: TMenuItem
        Tag = 2022
        Caption = 'Compare b&y content...'
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object FilesAssociatewith: TMenuItem
        Tag = 507
        Caption = '&Associate With...'
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object FilesVersioninfo: TMenuItem
        Tag = 510
        Caption = 'P&roperties...'
        ShortCut = 32781
        OnClick = MenuDispatch
      end
      object MenuItemID503: TMenuItem
        Tag = 503
        Caption = 'Calculate &Occupied Space...'
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object Print1: TMenuItem
        Tag = 504
        Caption = 'Prin&t'
        ShortCut = 16504
        OnClick = MenuDispatch
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Splitfile1: TMenuItem
        Tag = 560
        Caption = '&Split File...'
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object Combinefiles1: TMenuItem
        Tag = 561
        Caption = 'Co&mbine Files...'
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object Encodefile1: TMenuItem
        Tag = 562
        Caption = '&Encode File  (MIME,UUE,XXE)...'
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object DecodeFile1: TMenuItem
        Tag = 563
        Caption = '&Decode File  (MIME,UUE,XXE,BinHex)...'
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object N4: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object FilesQuit: TMenuItem
        Tag = 24340
        Caption = '&Quit'
        ShortCut = 32883
        OnClick = MenuDispatch
      end
    end
    object Mark: TMenuItem
      Caption = '&Mark'
      ShortCut = 0
      object MarkSelectgroup: TMenuItem
        Tag = 521
        Caption = 'Select &Group...'#9'Gray +'
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object MarkUnselectgroup: TMenuItem
        Tag = 522
        Caption = '&Unselect Group...'#9'Gray -'
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object MarkSelectall: TMenuItem
        Tag = 523
        Caption = '&Select All'#9'Ctrl Gray +'
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object MarkUnselectall: TMenuItem
        Tag = 524
        Caption = 'U&nselect All'#9'Ctrl Gray -'
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object MarkInvertSelection: TMenuItem
        Tag = 525
        Caption = '&Invert Selection'#9'Gray *'
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object MarkRestoreSelection: TMenuItem
        Tag = 529
        Caption = '&Restore selection'#9'Gray /'
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object MarkComparedirectories: TMenuItem
        Tag = 533
        Caption = '&Compare Directories'
        ShortCut = 8305
        OnClick = MenuDispatch
      end
      object MarkMarknewerhidesamefiles: TMenuItem
        Tag = 534
        Caption = '&Mark Newer, Hide Same Files'
        ShortCut = 0
        OnClick = MenuDispatch
      end
    end
    object Commands: TMenuItem
      Caption = '&Commands'
      ShortCut = 0
      object CommandsCDtree: TMenuItem
        Tag = 500
        Caption = 'CD &Tree...'
        ShortCut = 32889
        OnClick = MenuDispatch
      end
      object CommandsSearch: TMenuItem
        Tag = 501
        Caption = '&Search...'
        ShortCut = 32886
        OnClick = MenuDispatch
      end
      object CommandsVolumelabel: TMenuItem
        Tag = 505
        Caption = '&Volume Label...'
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object CommandsSystemInformation: TMenuItem
        Tag = 506
        Caption = 'System &Information...'
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object Synchronizedirs1: TMenuItem
        Tag = 2020
        Caption = 'S&ynchronize dirs...'
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object DirectoryHotlist: TMenuItem
        Tag = 526
        Caption = 'Directory &Hotlist'
        ShortCut = 16452
        OnClick = MenuDispatch
      end
      object Goback1: TMenuItem
        Tag = 570
        Caption = 'Go &Back'
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object CommandsRunDOS: TMenuItem
        Tag = 511
        Caption = 'Run &DOS'
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object CommandsNetworkconnections: TMenuItem
        Tag = 512
        Caption = '&Network Connections...'
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object MenuItemID513: TMenuItem
        Tag = 513
        Caption = 'Disc&onnect Network Drives...'
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object MenuItemID514: TMenuItem
        Tag = 514
        Caption = 'Share &Current Directory...'
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object CommandsUnsharedirectory: TMenuItem
        Tag = 515
        Caption = '&Unshare Directory...'
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object Connect1: TMenuItem
        Tag = 550
        Caption = '&FTP Connect...'
        ShortCut = 16454
        OnClick = MenuDispatch
      end
      object NewConnection1: TMenuItem
        Tag = 551
        Caption = 'FT&P New Connection...'
        ShortCut = 16462
        OnClick = MenuDispatch
      end
      object Disconnect1: TMenuItem
        Tag = 552
        Caption = 'FTP Disc&onnect'
        ShortCut = 24646
        OnClick = MenuDispatch
      end
      object Showhiddenfiles1: TMenuItem
        Tag = 553
        Caption = 'FTP Sho&w Hidden Files'
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object FTPDownloadfromlist1: TMenuItem
        Tag = 558
        Caption = 'FTP Download from list...'
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object CommandsSourceTarget: TMenuItem
        Tag = 531
        Caption = 'Source&<->Target'
        ShortCut = 16469
        OnClick = MenuDispatch
      end
      object CommandsTargetSource: TMenuItem
        Tag = 532
        Caption = 'Target&=Source'
        ShortCut = 0
        OnClick = MenuDispatch
      end
    end
    object Show: TMenuItem
      Caption = 'Sho&w'
      ShortCut = 0
      object ShowBrief: TMenuItem
        Tag = 301
        Caption = '&Brief'
        ShortCut = 16496
        OnClick = MenuDispatch
      end
      object ShowFull: TMenuItem
        Tag = 302
        Caption = '&Full'
        ShortCut = 16497
        OnClick = MenuDispatch
      end
      object ShowTree: TMenuItem
        Tag = 303
        Caption = '&Tree'
        ShortCut = 16503
        OnClick = MenuDispatch
      end
      object QuickView1: TMenuItem
        Tag = 304
        Caption = '&Quick View Panel'
        ShortCut = 16465
        OnClick = MenuDispatch
      end
      object a1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object ShowAllFiles: TMenuItem
        Tag = 312
        Caption = '&All Files'
        GroupIndex = 1
        ShortCut = 16505
        OnClick = MenuDispatch
      end
      object ShowPrograms: TMenuItem
        Tag = 311
        Caption = '&Programs'
        GroupIndex = 1
        ShortCut = 16506
        OnClick = MenuDispatch
      end
      object Show1: TMenuItem
        Tag = 313
        Caption = '*.*'
        GroupIndex = 1
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object ShowCustom: TMenuItem
        Tag = 314
        Caption = '&Custom...'
        GroupIndex = 1
        ShortCut = 16507
        OnClick = MenuDispatch
      end
      object TMenuItem
        Caption = '-'
        GroupIndex = 1
        ShortCut = 0
      end
      object ShowName: TMenuItem
        Tag = 321
        Caption = '&Name'
        GroupIndex = 2
        ShortCut = 16498
        OnClick = MenuDispatch
      end
      object ShowExtension: TMenuItem
        Tag = 322
        Caption = 'E&xtension'
        GroupIndex = 2
        ShortCut = 16499
        OnClick = MenuDispatch
      end
      object ShowTime: TMenuItem
        Tag = 324
        Caption = 'Ti&me'
        GroupIndex = 2
        ShortCut = 16500
        OnClick = MenuDispatch
      end
      object ShowSize: TMenuItem
        Tag = 323
        Caption = '&Size'
        GroupIndex = 2
        ShortCut = 16501
        OnClick = MenuDispatch
      end
      object ShowUnsorted: TMenuItem
        Tag = 325
        Caption = '&Unsorted'
        GroupIndex = 2
        ShortCut = 16502
        OnClick = MenuDispatch
      end
      object TMenuItem
        Caption = '-'
        GroupIndex = 2
        ShortCut = 0
      end
      object ShowReversedorder: TMenuItem
        Tag = 330
        Caption = '&Reversed Order'
        GroupIndex = 3
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object ShowRereadsource: TMenuItem
        Tag = 540
        Caption = 'R&eread Source'
        GroupIndex = 3
        ShortCut = 16466
        OnClick = MenuDispatch
      end
    end
    object Configuration: TMenuItem
      Caption = 'C&onfiguration'
      ShortCut = 0
      object ConfigurationConfiguration: TMenuItem
        Tag = 490
        Caption = '&Options...'
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object ConfigurationButtonbar: TMenuItem
        Tag = 498
        Caption = '&Button bar...'
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object ConfigurationSaveposition: TMenuItem
        Tag = 493
        Caption = '&Save Position'
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object ConfigurationSaveSettings: TMenuItem
        Tag = 580
        Caption = 'Sa&ve settings'
        ShortCut = 0
        OnClick = MenuDispatch
      end
    end
    object Start1: TMenuItem
      Caption = '&Start'
      ShortCut = 0
    end
    object Help: TMenuItem
      Break = mbBarBreak
      Caption = '&Help'
      ShortCut = 0
      object HelpIndex: TMenuItem
        Tag = 610
        Caption = '&Index'
        ShortCut = 112
        OnClick = MenuDispatch
      end
      object HelpKeyboard: TMenuItem
        Tag = 620
        Caption = '&Keyboard'
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object HelpRegistrationInfo: TMenuItem
        Tag = 630
        Caption = '&Registration-Info'
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object VisittheWincmdwebsite1: TMenuItem
        Tag = 640
        Caption = '&Visit Wincmd'#39's Web Site'
        ShortCut = 0
        OnClick = MenuDispatch
      end
      object TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object HelpAboutWindowsCommander: TMenuItem
        Tag = 690
        Caption = '&About Windows Commander...'
        ShortCut = 0
        OnClick = MenuDispatch
      end
    end
  end
end